<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.1b</name>
<id>-1</id>
<cardCount>2</cardCount>
<cardID>5831</cardID>
<listID>2491</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>384</width>
<height>216</height>
</cardSize>
<script>on openStackshow card button "Updating, Please Wait..." of card "Main Display"if the version of HyperCard < 2.0 thenanswer "Sorry, You need HyperCard 2.0 or later to run this stack"go homeend ifmenuhandler "hide","Font"menuhandler "hide","Style"menuhandler "hide","Go"menuhandler "hide","Tools"global SPortGlobals, SPortBuffer, FullUpDate, FlagByte1, FlagByte2,¬FlagByte3, CurrentDisplay, Front, Rear, VFOA, VFOB, NewFreq,¬CurrentOp, LastUpdate, UpdateTime,¬gHCuser, portmenu, checked, MemDataRec, memmenu,¬updatemenu, UpdateChecked, SecChecked, Step, Functions,¬MemCK, StepMenu, UpdateLevel, MeterOn, Listmenuset userlevel to 5configureSPort ModemPort,baud4800,data8,stop20,parityOff,stripoff,¬stripControlsOffsetSPortBufferSize 1600put 30 into UpdateTimeput the ticks into LastUpdateDo FullUpdateSettingsDo UpdateMemoryput "Modem,Printer" into portmenuput "Modem" into checkedmenuhandler "add","Port",portmenumenuhandler "mark","Port","Modem",checkput "Load Set,Save Set" into memmenumenuhandler "add","Memory",memmenuput "ON,OFF,------,FULL,Display,VFOs,------,500ms,1 sec,2 sec,5 sec,10 sec,15 sec,20 sec,30 sec,------,Meter On,Meter Off,------,Bright,Medium,Dim" into updatemenumenuhandler "add","Update",updatemenumenuhandler "mark","Update","OFF",checkmenuhandler "mark","Update","Display",checkmenuhandler "mark","Update","500ms",checkmenuhandler "mark","Update","Meter Off",checkmenuhandler "mark","Update","Bright",Checkput "OFF" into UpdateCheckedput "500ms" into SecCheckedput "Display" into UpdateLevelput "NO" into MeterOnput "10Hz,100Hz,1KHz,100KHz,1MHz" into StepMenumenuhandler "add","Step",Stepmenumenuhandler "mark","Step","10Hz",checkput "1" into stepcolorizeHC "new","Front Panel","0,0,384,216"hide card button "Updating, Please Wait..." of card "Main Display"put "About Stack" & return & "Port Menu" & return & "Memory Menu" & return¬& "Update Menu" & return & "Step Menu" & return & "Change Frequency" & return¬& "Interface Info" & return & "Interface Diagram" & return & "Pan Info" into Listmenuend openStackon closeStackmenuhandler "delete","Port",portmenumenuhandler "delete","Memory",Memmenumenuhandler "delete","Update",updatemenumenuhandler "delete","Step",Stepmenumenuhandler "delete","Display",Displaymenumenuhandler "show","Edit",portmenumenuhandler "show","Go",portmenumenuhandler "show","Tools",portmenumenuhandler "show","Font",portmenumenuhandler "show","Style",portmenuput empty into gHCusercloseSPortend closeStackOn RecallMemUpglobal MemDataRecput card field "Mem Number Display" into Memnumif MemNum = "90" then put "1" into MemNumelseput MemNum + 1 into MemNumend ifput word 1 of line Memnum of MemDataRec into card field¬"Mem Number Display" of card "Main Display"put word 2 of line Memnum of MemDataRec into card field¬"MHZ" of card "Main Display"put word 3 of line Memnum of MemDataRec into card field¬"Mode Display" of card "Main Display"put word 4 of line Memnum of MemDataRec into card field¬"Width Display" of card "Main Display"end RecallMemUpOn RecallMemDownglobal MemDataRecput card field "Mem Number Display" into Memnumif MemNum = "1" then put "90" into MemNumelseput MemNum - 1 into MemNumend ifput word 1 of line Memnum of MemDataRec into card field¬"Mem Number Display" of card "Main Display"put word 2 of line Memnum of MemDataRec into card field¬"MHZ" of card "Main Display"put word 3 of line Memnum of MemDataRec into card field¬"Mode Display" of card "Main Display"put word 4 of line Memnum of MemDataRec into card field¬"Width Display" of card "Main Display"end RecallMemDownon domenu anItemglobal PortMenu, MemMenu, UpdateMenu, StepMenu, DisplayMenu,¬TryNumif PortMenu contains anItem thendoPortMenu anItemelseif MemMenu contains anItem thendoMemMenu anItemelseif UpdateMenu contains anItem thendoUpdateMenu anItemelseif StepMenu contains anItem thendoStepMenu anItemelse-- if DisplayMenu contains anItem then-- put anItem into TryNum-- doDisplayMenu-- elsepass domenuexit domenuend ifend ifend ifend if--end ifend domenuon DoPortMenu anItemglobal SPortGlobals, portmenu, checkedif anItem = Checked thenexit DoPortmenuelseif anItem = "Modem" thencloseSPortwait 30 ticksconfigureSPort ModemPort,baud4800,data8,stop20,parityOff,stripoff,¬stripControlsOffsetSPortBufferSize 1600menuhandler "mark","Port","Modem",checkmenuhandler "mark","Port","Printer",noneput "Modem" into Checkedget recvChars(charsAvailable())elsecloseSPortwait 30 ticksconfigureSPort PrinterPort,baud4800,data8,stop20,parityOff,stripoff,¬stripControlsOffsetSPortBufferSize 1600menuhandler "mark","Port","Printer",checkmenuhandler "mark","Port","Modem",noneput "Printer" into Checkedget recvChars(charsAvailable())end ifend ifend DoPortMenuOn DoUpdateMenu anItemglobal UpdateMenu, UpdateChecked, SecChecked, UpdateTime,¬MyLast, UpdateLevel, MeterOnif UpdateChecked = anItem thenexit DoUpdateMenuelseif SecChecked = anItem thenexit DoUpdateMenuelseif UpdateLevel = amItem thenexit DoUpdateMenuelseif anItem = "ON" thenmenuhandler "mark","Update","ON",checkmenuhandler "mark","UpDate","OFF",noneput "ON" into UpdateChecked--set hilite of card button id 1 to trueelseif anItem = "OFF" thenmenuhandler "mark","Update","OFF",checkmenuhandler "mark","UpDate","ON",noneput "OFF" into UpdateChecked--set hilite of card button id 1 to falseelsemenuhandler "mark","Update",(SecChecked),noneif anItem = "1 sec" thenput 60 into updatetimemenuhandler "mark","Update","1 sec",checkput "1 sec" into SecCheckedelseif anItem = "500ms" thenput 30 into updatetimemenuhandler "mark","Update","500ms",checkput "500ms" into SecCheckedelseif anItem = "2 sec" thenput 120 into updatetimemenuhandler "mark","Update","2 sec",checkput "2 sec" into SecCheckedelseif anItem = "5 sec" thenput 300 into updatetimemenuhandler "mark","Update","5 sec",checkput "5 sec" into SecCheckedelseif anItem = "10 sec" thenput 600 into updatetimemenuhandler "mark","Update","10 sec",checkput "10 sec" into SecCheckedelseif anItem = "15 sec" thenput 900 into updatetimemenuhandler "mark","Update","15 sec",checkput "15 sec" into SecCheckedelseif anItem = "20 sec" thenput 1200 into updatetimemenuhandler "mark","Update","20 sec",checkput "20 sec" into SecCheckedelseif anItem = "30 sec" thenput 1800 into updatetimemenuhandler "mark","Update","30 sec",checkput "30 sec" into SecCheckedelseif anItem = "FULL" thenput "FULL" into UpdateLevelmenuhandler "mark","Update","FULL",checkmenuhandler "mark","UpDate","Display",nonemenuhandler "mark","UpDate","VFOs",noneelseif anItem = "Display" thenput "Display" into UpdateLevelmenuhandler "mark","Update","FULL",nonemenuhandler "mark","UpDate","Display",checkmenuhandler "mark","UpDate","VFOs",noneelseif anItem = "VFOs" thenput "VFOs" into UpdateLevelmenuhandler "mark","Update","FULL",nonemenuhandler "mark","UpDate","Display",nonemenuhandler "mark","UpDate","VFOs",checkelseif anItem = "Meter On" thenput "YES" into MeterOnmenuhandler "mark","Update","Meter On",checkmenuhandler "mark","UpDate","Meter Off",noneelseif anItem = "Meter Off" thenput "NO" into MeterOnput empty into card field "Meter" of card "Main Display"menuhandler "mark","Update","Meter On",nonemenuhandler "mark","UpDate","Meter Off",checkelseif anItem = "Bright" thenmenuhandler "mark","Update","Bright",checkmenuhandler "mark","Update","Medium",nonemenuhandler "mark","Update","Dim",nonesendSPortBytes "0,0,0,13,248"elseif anItem = "Medium" thenmenuhandler "mark","Update","Bright",nonemenuhandler "mark","Update","Medium",checkmenuhandler "mark","Update","Dim",nonesendSPortBytes "0,0,0,5,248"elseif anItem = "Dim" thenmenuhandler "mark","Update","Bright",nonemenuhandler "mark","Update","Medium",nonemenuhandler "mark","Update","Dim",checksendSPortBytes "0,0,0,2,248"end ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifEnd DoUpdateMenuOn DoMemMenu anitemGlobal MemDataRec, NewFreq, MemMenuif anitem = "Load Set" thenput FilePath("TEXT", "Where is you memory data file ?")¬into filenameif filename = empty thenexit DoMemMenuelseopen file fileNameread from file fileName for 32000if it is empty thenbeepbeepclose file fileNameexit DoMemMenuelse put empty into tempRecordput it after tempRecordput return into last char of tempRecordrepeat while offset(tab,tempRecord) is not 0get offset(tab,tempRecord)set cursor to busyput " " into char it of tempRecordend repeatclose file fileNameend ifrepeat with x = 1 to 89set cursor to busysendSPortBytes "0,0,0,0,5"put line x of tempRecord into memdataput word 1 of memdata into memnumput word 2 of memdata into vfoput word 3 of memdata into Modeput "0,0,0,0,12" into SendModeif Mode = "LSB" thenput 0 into char 7 of SendModeelseif Mode = "USB" thenput 1 into char 7 of SendModeelseif Mode = "CW" thenput 3 into char 7 of SendModeelseif Mode = "AM" thenput 5 into char 7 of SendModeelseif Mode = "FM" thenput 6 into char 7 of SendModeelseif Mode = "RTTY" thenput 8 into char 7 of SendModeend ifend ifend ifend ifend ifSendSPortBytes SendModeset the numberformat to "00.00000"put VFO into NewFreqrepeat while offset(".",NewFreq) is not 0put offset (".",newfreq) into DecPointdelete char (DecPoint) of NewFreqend repeatDo FreqSendput "0,0,0,0,3" into VFOtoMemput MemNum into char 7 of VFOtoMemsendSPortbytes VFOtoMenend ifwait 30 ticksend repeatelseif anitem = "Save Set" thenput empty into tempRecordput MemDataRec into tempRecordput return into last char of tempRecordrepeat while offset(" ",tempRecord) is not 0get offset(" ",tempRecord)set cursor to busyput tab into char it of tempRecorddelete char it + 1 to it + 7 of tempRecordend repeatWriteToFile tempRecord,FALSE,"FT990 Memory Data",FALSE,"EDIT"end ifend ifend DoMemMenuOn DoStepMenu anItemglobal Step, StepMenuif StepChecked = anItem thenexit DoStepMenuelseif anItem = "10Hz" thenmenuhandler "mark","Step","10Hz",checkmenuhandler "mark","Step","100Hz",nonemenuhandler "mark","Step","1KHz",nonemenuhandler "mark","Step","100KHz",nonemenuhandler "mark","Step","1MHz",noneput "1" into Stepelseif anItem = "100Hz" thenmenuhandler "mark","Step","100Hz",checkmenuhandler "mark","Step","10Hz",nonemenuhandler "mark","Step","1KHz",nonemenuhandler "mark","Step","100KHz",nonemenuhandler "mark","Step","1MHz",noneput "10" into Stepelseif anItem = "1KHz" thenmenuhandler "mark","Step","100Hz",nonemenuhandler "mark","Step","10Hz",nonemenuhandler "mark","Step","1KHz",checkmenuhandler "mark","Step","100KHz",nonemenuhandler "mark","Step","1MHz",noneput "100" into Stepelseif anItem = "100KHz" thenmenuhandler "mark","Step","100KHz",checkmenuhandler "mark","Step","10Hz",nonemenuhandler "mark","Step","1KHz",nonemenuhandler "mark","Step","100Hz",nonemenuhandler "mark","Step","1MHz",noneput "10000" into Stepelseif anItem = "1MHz" thenmenuhandler "mark","Step","1MHz",checkmenuhandler "mark","Step","10Hz",nonemenuhandler "mark","Step","1KHz",nonemenuhandler "mark","Step","100Hz",nonemenuhandler "mark","Step","100KHz",noneput "100000" into Stepend ifend ifend ifend ifend ifend ifEnd DoStepMenu</script>
